Top 10k strings from Video Basic - Issue 10 (1985)(Ingelek Jackson)(16k)(es)[a].tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
5 A$="PON EN MARCHA LA GRABADORA":
5 "4";"ESTA BIEN ESCRITO ? (S/N)";
5 "23606",z:
5 "10",z;" PARA LA GRABADORA ":
4 t$=" PULSA UNA TECLA PARA CONTINUAR "
4 U;" ";N$;" "
4 ((((((((((((
4 "9",N;" ~|";
4 "8",N;A$(N-2
4 "3";"ESCRIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>":
4 "10",N;" \]"
4 PASO A LA PARTE";
4 * *
3 t$(2)-48":
3 T$=" ELIGE, "+N$+":":
3 "6";" SIGUIENTE"
3 "23296"+N,
3 "126-XL/2",
3 "10-a/2",U;
2 t$(3)-48":
2 p$="VIDEOHARDWARE: ":
2 p$="VIDEOBREAK: ":
2 p$="VIDEOBASIC-LA PROGRAMACION: ":
2 n;" ":
2 Via Indipendenza 88
2 U''''" ";:
2 N(NT)+B(NT)=C4
2 N(NT)+B(NT)
2 LETREROS ROTATORIOS
2 LETREROS ENTRANTES
2 LEE LOS UDG
2 HOMBRECILLO
2 B$(NT,I);" ";:
2 B$(NT)=Q$(
2 ;"VIDEOBASIC":
2 ;"INTENTO NUM.";
2 ;" ";NT;" ";
2 ;" ":
2 888888888888888888888888888888888000000000000000000000000000000880((((((((((((((((((((((((((((0880( (0880(
2 )))+B$(NT,
2 "(21-YP)*8-2":
2 VUELTA AL PRINCIPIO";
2 SOFTIDEA (Como)
2 ** **
2 (0880( (0880((((((((((((((((((((((((((((088000000000000000000000000000000888888888888888888888888888888888
2 Tel.031-240.959
2 PARA LA GRABADORA
2
1 yp=yp+(t$(i)="b")-(t$(i)="a"):
1 y(n)=y(n+1
1 y$=" PULSA UNA TECLA PARA CONTINUAR ":
1 xp=xp+(t$(i)="d")-(t$(i)="s"):
1 w$="LA IMPRESORA DE MARGARITA BASASU FUNCIONAMIENTO EN UNA ESPECIEDE MARGARITA (TULIPA), SOBRE CU-YOS BRAZOS ESTAN TODOS LOS SIG-NOS IMPRIMIBLES.":
1 w$="AHORA INTENTAREMOS EXAMINAR LOSPRINCIPALES TIPOS, Y SUS CARAC-TERISTICAS.":
1 u;"OPEN #";a$(J);",""";"SKP"(J);""""
1 u;"I$=CANAL C=COLUMNA N=VAR.AUX."
1 u;"EXACTO !":
1 u;" ? ? ?":
1 t$="TRADUCCION
1 t$="LAS FUNCIONES QUE POSEE, Y LASSECUENCIAS DE CARACTERES PARASU ACTIVACION, ESTAN ESPECIFI-CADAS EN EL MANUAL DE CADA IM-PRESORA.":
1 t$="EN LUGAR DE LA ZX-PRINTER PO-DEMOS CONECTAR AL SPECTRUMOTRAS IMPRESORAS. EN ESTE CASOPARA ACTIVAR LAS NUEVAS FUN-CIONES, RECURRIMOS A LOS CA-RACTERES DE CONTROL.":
1 t$="...QUE REPRESENTAN RESPECTIVA-MENTE, LA PARTE ENTERA Y ELRESTO DE LA OPERACION <X/256>.":
1 t$(u+u)-48":
1 t$(u)="<":
1 t$(u)="1292"(B)
1 t$(u);t$(u+u
1 t$(4)-49":
1 t$(3)-49":
1 t$(3)-48)*4+2":
1 t$(2)-48)*8+2":
1 ppx~||~?)'!")
1 p;" ":
1 p;" ":
1 p$="los temas de la leccion ":
1 p$="VIDEOTEST: ":
1 p$="VIDEONEXT: ":
1 p$="VIDEOJUEGO: ":
1 p$="VIDEOJUEGO: ":
1 p$="VIDEOBASIC-EL LENGUAJE: ":
1 p$="READ - DATA - RESTORE ":
1 p$="Output, su Impresion ":
1 p$="Master Mind ":
1 p$="Los Canales: OPEN# - CLOSE# ":
1 p$="La Impresion ":
1 p$="LLIST - LPRINT - COPY ":
1 p$="Juego de adivinanzas sobre ":
1 p$="Globos ":
1 p$="En el proximo numero... ":
1 p$="El Robot ":
1 p$="El Ordenador Cansado ":
1 p$="Definicion de Caracteres ":
1 p$="Codigos de control ASCII ":
1 p$="Caracteres Graficos (UDG) ":
1 p$="Arabesco ":
1 copy=23760
1 b$=b$+(w$(j)
1 attr=23813
1 a;" ":
1 a$="LA PROGRAMACION":
1 a$=" ":
1 a$(j)*2+3",i;
1 a$(j)*2+3"
1 ``````hhh0000000iiiiiiiiiiiiiiii``````hhh00 iiiiVVVVVVVVViii``````hhh0((((((iiiiiiiiiiiiiiii``````hhhh((((((iiiiiiiiNNNNNNiiWWWWWWW`xx((((((iiiiiiiii^^^^^iiWWWWWWW``xxxxxxx88888888iiiiiiii````a````xxxxxxx88888888iiiiiiiiqqqqqqqqqqqqqqqqxxxxxxxxxxxxxxxxqqqqqqqqqqqqqqqqxxxxxxxxxxxxxxxxqqqqqqqqqqqqqqqqxxxxxxxxxxxxxxxxqqqqqqqqqqqqqqqwxxxxxxxxxxxxxxxxqqqqqqqqqqqqqqqwxxxxxxxx(((((((xqqqqqqqqqqqqqqqwxxxxxxxxxxxxxxxxppppqqqqqWWWWWWWxxxxxxxxxxxxxxxx88888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888999999999999999999999999999999998888888888888888888888888888888888888888888888888888888888888888>
1 Z=(N(NT)=C2)*C6+(N(NT)=
1 Z;";""ES""; ";
1 Z;";""BASIC""",,,,
1 Z,Z;"BIEN, ";N$'"AHORA PULSA ""R"" PARA EJECUTAR ":
1 Z$="R")+(855
1 YY,XX;" ";
1 Y,Y;" CONECTA LA ";
1 Y,N;A$(N-2
1 Y,N;" {|";
1 Y,I;A$(I):
1 Y$="* PULSA UNA TECLA PARA CONTINUAR*"
1 Y$=" PULSA UNA TECLA PARA CONTINUAR":
1 Y$=" PULSA UNA TECLA PARA CONTINUAR "
1 X<21)+(30-X)*(X>20)"):
1 X,Y;T$(N):
1 W$="UNA IMPRESORA DE AGUJAS FABRICA-DA EXPROFESO PARA SPECTRUM ES LA<GP50S>.":
1 W$="UN MARTILLETE SITUADO DETRAS DELA IMPRESORA GOLPEA SOBRE ELBRAZO SELECCIONADO, QUE A SU VEZIMPRIME EL CARACTER DESEADO.":
1 W$="NORMALMENTE ESTAS IMPRESORAS SONMAS RAPIDAS QUE LAS DE MARGARI-TA, PERO PROPORCIONAN UNA INFE-RIOR CALIDAD DE IMPRESION.":
1 W$="LOS ORDENADORES PUEDEN TENER IN-TERFACES SERIE O PARALELO, Y ENFUNCION DEL TIPO DE ESTOS SE ES-COGERA LA IMPRESORA.":
1 W$="LAS IMPRESORAS TERMICAS, COMO LAZX-PRINTER, EMPLEAN UN TIPO DEPAPEL PLATEADO ESPECIAL, QUE SE'QUEMA' DEBIDO A LA TENSIONELECTRICA APLICADA A UNA AGUJAFINA.":
1 W$="LAS IMPRESORAS DE AGUJAS TIENEN,EN LUGAR DE LAS DE MARGARITA,UNA CABEZA CON ROBUSTAS AGUJASCONECTADAS CADA UNA DE ELLAS AUN MARTILLETE.":
1 W$="LAS IMPRESORAS DE AGUJAS SONTAMBIEN CAPACES DE REPRODUCIRGRAFICOS.":
1 W$="LA VELOCIDAD DE LA ZX-PRINTER ESDE APROXIMADAMENTE 50 CARACTERESPOR SEGUNDO.":
1 W$="EXISTEN IMPRESORAS PARA TODOSLOS GUSTOS Y ECONOMIAS:TERMICAS,DE AGUJAS, DE IMPACTO, DE MARGA-RITA, O DE CABEZA ESFERICA."
1 W$="ESTE TIPO DE IMPRESORA TIENE LAVENTAJA DE ESCRIBIR MUY NITIDA-MENTE, YA QUE CADA GOLPE IMPRIMELA TOTALIDAD DEL CARACTER, PRO-PORCIONANDO UNA ELEVADA CALIDADY LEGIBILIDAD.":
1 W$="ESTE INTERFACE PUEDE SER 'RS232' (SERIE) O 'CENTRONICS' (PA-RALELO).":
1 W$="ESTA AGUJA SE MUEVE MUY RAPIDA-MENTE SOBRE UNA CINTA, E IMPRIMELAS FILAS DE CARACTERES POR LI-NEAS EN ALTA RESOLUCION.":
1 W$="EN LA SECCION DEDICADA AL LEN-GUAJE VERAS CUALES SON LAS INS-TRUCCIONES PARA EL MANEJO DE LAIMPRESORA.":
1 W$="EL CABEZAL CON LAS AGUJAS SEDESPLAZA A LO LARGO DEL CARRO,FORMANDO A BASE DE PUNTOS CUAL-QUIER CARACTER.":
1 W$="CUALQUIER IMPRESORA PARA ELSPECTRUM QUE NO SEA ZX-PRINTER,GP50S O ALPHACOM 32, NECESITAINTERFACE.":
1 W$="COMO HAS PODIDO OBSERVAR EL TEMADE ESTA LECCION ES LA IMPRESORA.":
1 VISUALIZACION BLOQUE
1 VIDEOTEST u
1 VIDEONEXT &
1 VIDEOLIST
1 VIDEOHARD
1 VIDEOBREAK<
1 U;'''" Ejemplo:"''" TAB = CHR$ 9"''" AVANCE LINEA= CHR$ 10"''" EXPANDIDO = CHR$ 27+""W1"""''" SUBRAYADO = CHR$ 27+""-1"""
1 U;"OTRA VEZ..":
1 U;"OTRA VEZ !":
1 U;"NO!!, DEBES INTRODUCIR <S> o <P>":
1 U;"LA CODIFICACION ASCII":
1 U;"ESTA ES LA INSTRUCCION EXACTA:":
1 U;"ERROR !":
1 U;"BASIC":
1 U;"* TAB VERTICAL",,"* TAB HORIZONTAL","* AVANCE LINEA",,"* AVANCE PAGINA ETC...",
1 U;" PRINT - LIST ":
1 U;" LPRINT - LLIST ":
1 U;" CODIGOS "(I):
1 U;" ":
1 U;" ":
1 U;" OTRA VEZ !",:
1 U+U,XP;A$;
1 U''" TIPO DE IMPRESION",'':
1 U''" POSICIONADO",,'':
1 U'" INICIALIZACION",:
1 TIPO DE IMPRESORA QUE ESCRIBECARACTER A CARACTER MARGARITA
1 TABLA TEST
1 T$="VEAMOS AHORA COMO SE REAGRUPANPOR CLASES HOMOGENEAS DE FUN-CIONES, LOS CARACTERES DE LATABLA <ASCII>.":
1 T$="SE EMPLEAN UNICAMENTE LOSATRIBUTOS <OVER> E <INVERSE>.LOS DEMAS (BRIGHT, INK, ETC..)SON IGNORADOS SIN PROVOCARERROR.":
1 T$="QUIZAS SEA MEJOR QUE VUELVAS ALEER EL PROGRAMA Y LO INTENTESDE NUEVO.":
1 T$="PULSA UNA TECLA PARA CONTINUAR* ":
1 T$="PERO LA IMPRESION NO SE EFEC-TUA INMEDIATAMENTE. LOS DATOSSON ALMACENADOS TEMPORALMENTEEN UN AREA ESPECIAL DE LA ME-MORIA LLAMADA <PRINTER BU-FFER>, EN ESPERA QUE LA LINEAEN PREPARACION SE COMPLETE, OTERMINE EL PROGRAMA. SOLO EN-TONCES TIENE LUGAR LA OPERA-CION DE IMPRESION EN SENTIDOFISICO."
1 T$="PARA OBTENER EL MEJOR PARTIDODE LAS POSIBILIDADES QUE OFRE-CE UNA IMPRESORA, QUE NO SEALA ZX-PRINTER, PUEDE SER UTILAGRUPAR LAS FUNCIONES DE IM-PRESION POR CATEGORIAS...":
1 T$="LA INSTRUCCION <COPY> SIRVEPARA IMPRIMIR CON LA ZX-PRINTER LA TOTALIDAD DEL CON-TENIDO DE LA PANTALLA, INCLU-YENDO CARACTERES Y SIMBOLOSGRAFICOS. SE USA SIN PARAME-TROS, Y COMO LAS INSTRUCCIONESANTERIORES IGNORA CUALQUIERATRIBUTO EXISTENTE.":
1 T$="INTENTA ESCRIBIR LAS INSTRUC-CIONES QUE TE VAYA PIDIENDO.ESTOY SEGURO QUE NO ENCONTRA-RAS GRANDES DIFICULTADES.":
1 T$="ESTOS SON CARACTERES NORMALES,PERO CON LA CARACTERISTICA DENO PRODUCIR NINGUN SIGNO IM-PRIMIBLE.":
1 T$="ESTOS ESTAN SITUADOS EN LAPARTE INFERIOR DE LA TABLAASCII (CODIGOS ENTRE <0> Y<31>).":
1 T$="ESTE HECHO HACE QUE SEAN AP-TOS, PARA TRANSMITIR INFORMA-CIONES ESPECIALES (CODIGOS DECONTROL).":
1 T$="ESTE GRUPO DE INSTRUCCIONESSIRVE PARA ENVIAR DATOS A LAIMPRESORA ZX-PRINTER, U OTRASCOMPATIBLES.":
1 T$="EN ESTE CASO LAS TECLAS DE <0>A <7> SE CONVIERTEN EN <PAPER0-7>; <8> SE TRANSFORMA EN<BRIGHT 0> Y <9> EN <BRIGHT1>; LAS MISMAS TECLAS CON<CAPS-SHIFT> SE CONVIERTEN EN<INK 0-7>, <FLASH 0> Y <FLASH1>.":
1 T$="EN EFECTO, EN LUGAR DE LA FOR-MA HABITUAL, ES POSIBLE ENVIARLOS ATRIBUTOS (BRIGHT,INVERSE,ETC.) MEDIANTE CARACTERES ADE-CUADOS:":
1 T$="EL CONTROL MEDIANTE CARACTERESESPECIALES NO ES SOLO EXCLUSI-VO DE LA IMPRESION SOBRE PA-PEL: TAMBIEN PARA TRABAJAR ENPANTALLA SE PUEDE EMPLEAR UNSISTEMA SEMEJANTE.":
1 T$="DEJANDO APARTE <COPY>, SU USOES SIMILAR A <PRINT> Y <LIST>,HASTA EL PUNTO DE SER POSIBLEINTERCAMBIARLAS SIN NINGUNAMODIFICACION.":
1 T$="AHORA, "+N$+":":
1 T$="ADEMAS, DEL PARAMETRO DE POSI-CIONAMIENTO <AT> SE USA SOLA-MENTE LA PARTE QUE SE REFIEREA LAS COLUMNAS.":
1 T$="ADEMAS ES POSIBLE INDICAR LOSATRIBUTOS DIRECTAMENTE POR ELTECLADO, SITUANDOLO EN MODOEXTENDIDO.":
1 T$="<TAB> VERTICAL ES SEMEJANTE,PERO EN LUGAR DE POSICIONES DEIMPRESION HACE REFERENCIA ALNUMERO DE LINEA EN EL AMBITODE UNA PAGINA.":
1 T$="..SE ESTABLECEN LAS POSICIONES":
1 T$="..DESPUES SE EJECUTA LA IMPRE-SION":
1 T$=" ELIGE, {:":
1 T$=" ":
1 SCROLL=23828
1 SC","CIERRA EL CANAL CUYO","NUMERO ESTA CONTENIDO EN LA","VARIABLE <SC>",""
1 RUTINA MAQUINA DE ESCRIBIR
1 RETROCEDE LA CABEZA IMPRESORAUNA POSICION CHR$ 8
1 RABADORA * * PULSA UNA TECLA PARA CONTINUAR* * PARA LA Gy
1 Q$(K)=Q$(J)
1 PULSA UNA TECLA PARA CONTINUAR* P<
1 PROGRAMA z
1 PORTADA
1 PETICION DEL NOMBRE
1 PANTALLA
1 P$="VIDEONEXT":
1 P$="VIDEOLIST":
1 P$="VIDEOBASIC-EL LENGUAJE: ":
1 P$="USR - BIN ":
1 P$="* MUY BIEN. HAS ADIVINADO MI CODIGO EN "+
1 P$="* HE ADIVINADO TU CODIGO * * "+T$:
1 P$="* HAS COMETIDO UN ERROR * * "+T$:
1 P$="* * HAS AGOTADO EL NUMERO MAXIMO DE INTENTOS!!! * * "+T$:
1 P$="* PARA LA GRABADORA * * "+T$:
1 P$=" PULSA UNA TECLA PARA CONTINUAR "
1 P$=" en el numero 11 ":
1 O,i;A$(i-2
1 NT+" INTENTOS. * * "+T$:
1 NB=N(NT)+B(NT)
1 N(NT)=N(NT)+
1 N(NT)+B(NT)>C4
1 N(NT)+B(NT)<
1 N$=N$+" ":
1 LAS INSTRUCCIONES <OPEN ^> Y<CLOSE ^> SIRVEN PARA EL IN-TERCAMBIO DE DATOS ENTRE LAUNIDAD CENTRAL Y LAS UNIDADESPERIFERICAS (E/S).% %EL <SPECTRUM> DISPONE DE NUME-ROSAS INSTRUCCIONES DE ENTRADAY SALIDA: LIST, INPUT, PRINT,ETC; Y EXISTEN VARIAS UNIDADESCAPACES DE USAR ESTAS INSTRUC-CIONES: PANTALLA, IMPRESORA,MICRODRIVE Y OTRAS. POR LO TANTO TIENE QUE EXISTIRLA POSIBILIDAD DE PODER CON-TROLAR LA CONEXION, ENTRE LASINSTRUCCIONES DE E/S Y LA UNI-DAD ELEGIDA.% %LA SOLUCION CONSISTE EN ATRI-BUIR A CADA INSTRUCCION DEE/S UN NUMERO COMPRENDIDO EN-TRE 0 Y 15. ESTO SIRVE PARA IDENTIFICAR ELCANAL (STREAM) HACIA EL CUALSE ENVIAN LOS DATOS:& &LIST ^7 INPUT ^12 PRINT ^0& &...Y ASI SUCESIVAMENTE.% %PERO LA OPERACION TODAVIA ESTAINCOMPLETA: SE HA ESTABLECIDOEL CANAL A USAR, PERO NO QUEUNIDAD ESTA SITUADA EN EL EX-TREMO OPUESTO.# #EL EMPAREJAMIENTO SE OBTIENECO
1 K$="POR MARGARITA":
1 K$="EJEMPLO":
1 K$="DE IMPRESION":
1 JUEGO O
1 INTERFACE SERIE PARA LA IMPRE-SORA RS232
1 INTERFACE PARALELO PARA LA IM-PRESORA CENTRONICS
1 INSTRUCCION DE IMPRESION SO-BRE PAPEL LPRINT
1 HARDSCREEN
1 H1=NB*C4+N(NT)+B(NT)+
1 H$="00000202031316070318281000001207"
1 G$(K)=D$(J)
1 G$(K)=B$(NT,K)
1 ESTA VEZ HAS ESCRITO CORRECTA-MENTE UN PROGRAMA PRACTICO,UTILIZANDO UNA TECNICA FUNDA-MENTAL: LA GESTION DE CANALES."
1 EQUIVALE A LIST EN LA IMPRESO-RA LLIST
1 EJERCICIOS{
1 EJECUTA UNA COPIA DE LA PANTA-LLA EN LA IMPRESORA COPY
1 E$(W)=D$(W)
1 E$(J)=B$(Y,J)
1 D$=B$(C2):
1 D$(W)="0":
1 D$(J)="0":
1 Created with Ramsoft MakeTZX
1 CIERRA UN CANAL CLOSE #
1 CHR$ %
1 CC-AA,DD-BB,EE:
1 CARACTER QUE SE UTILIZA PARALA TABULACION HORIZONTAL 9
1 CARACTER DE CONTROL PARA ELPASO DE UNA PAGINA 12
1 CARACTER ASCII EQUIVALENTE ALSEPARADOR <COMA> 6
1 CAR TEST
1 CAR PROG.
1 CAR NEXT
1 CAR LIST
1 CAR HARD
1 CAR EJER.
1 CAR CHR$
1 CAR BREAK
1 CANALES QUE PUEDE ABRIR ELSPECTRUM 16
1 CANAL ABIERTO PARA LA IMPRESO-RA 3
1 C6:::::::::::::::::::::::::::::::
1 C","04C FIN ","#813"
1 BIEN, "+N$+"
1 B(NT)=B(NT)-N(NT)
1 B(NT)=B(NT)+
1 B$="------------"
1 B$(NT,J)=D$(W)
1 B$(NT,J)=D$(J)
1 B$(NT)=S$:
1 B$(NT)=E$:
1 B$(NT)=B$(Y)
1 B$(C2)=Q$(A1)+Q$(A2)+Q$(A3)+Q$(A4)
1 AHORA INTENTA ESCRIBIR EL PRO-GRAMA EN BASE AL DIAGRAMA DEFLUJO.
1 ACUERDATE DE NUMERAR LAS LI-NEAS DE 10 EN 10, A PARTIR DE10.",""
1 ABRE UN CANAL OPEN #
1 ABRE EL SEGUNDO CANAL PARA LAIMPRESORA OPEN #2,"P"
1 AA,BB,CC,DD,EE:
1 A$="VIDEOTEST ":
1 A$="VIDEOBASIC":
1 A$="PON EN MARCHA LA GRABADORA"
1 A$="LPRINT - LLIST - COPY":
1 A$="LOS CARACTERES ASCII":
1 A$="HASTA PRONTO":
1 A$=" OPEN # - CLOSE #":
1 A$=" ESTA BIEN ESCRITO, "+N$+"?":
1 A$=" ELIGE, "+N$+":":
1 A$=" CANALES - IMPRESION":
1 A$=" TECLADO Y PULSA <ENTER> ":
1 A$=" PON EN MARCHA LA GRABADORA":
1 A$=" ESCRIBE TU NOMBRE EN EL ":
1 A$=" ELIGE, "+N$+":":
1 A$=" 3 - FIN":
1 A$=" 2 - VIDEONEXT":
1 A$=" 2 - ADIVINO YO":
1 A$=" 1 - JUEGO":
1 A$=" 1 - ADIVINAS TU":
1 A$=" CARGO VIDEONEXT ":
1 ;Z$(I);" ";:
1 ;N$;" ? (S/N)"
1 ;I$","045 ASIGNA ","046 CANAL ","#823","2620
1 ;"y quita la alimentacion a tu ";
1 ;"ejemplos y ejercicios";
1 ;"Y PULSA <ENTER>":
1 ;"TU PUNTUACION ES ";s;" SOBRE 30."
1 ;"TU CODIGO ES:
1 ;"SPECTRUM. Hasta pronto,";
1 ;"Pon el casete en su caja,";
1 ;"PREGUNTA N. ";w
1 ;"PARA MEJORAR, LEE";
1 ;"PAPER 5 = CHR$ 17+CHR$ 5","AT 13,5 = CHR$ 22+CHR$ 13+CHR$ 5":
1 ;"OTRA VEZ"
1 ;"NO TE PUEDO AYUDAR":
1 ;"Muy bien, enhorabuena!"
1 ;"MUY BIEN ";n$;
1 ;"MI CODIGO ES: ";
1 ;"La respuesta correcta es:";
1 ;"LA RESPUESTA ES MUY CORTA";
1 ;"LA GRABADORA",
1 ;"HE AQUI UNA SUGERENCIA:"
1 ;"Ejemplo..."'
1 ;"ESTOY PENSANDO...":
1 ;"ESCRIBE TU NOMBRE";
1 ;"ES EXACTO."
1 ;"EN EL TECLADO";
1 ;"- - - - - -"''':
1 ;"""";i$;""" esta equivocado."
1 ;" PULSA UNA TECLA PARA TERMINAR "
1 ;" GRABADORA ":
1 ;" SIGUIENTE"
1 ;" ESTA BIEN ESCRITO, ";
1 ;" PON EN MARCHA LA GRABADORA "
1 ;" PARA ":
1 ;" PARA LA GRABADORA ":
1 ;" PARA LA GRABADORA "
1 ;" ";
1 ;" estoy cargando "''" VIDEOHARDWARE ":
1 ;" ";
1 ;" "
1 ;" ";
1 ;" ":
1 ;" ";
1 9","ENVIA UNA ORDEN DE <TAB>","A UNA IMPRESORA ESTANDAR","(TAB = 9)",""
1 888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888
1 7,""K""","ASIGNA AL CANAL 7","LA PARTE BAJA DE LA PANTALLA",""
1 43 - FASE DE OUTPUT","COMO ESCOGEREMOS LA SALIDA ?",""
1 4 O U T P U T ","04>IMPRIME ","04?< 1X2 > ","#823","2>50
1 23688/2-U"
1 23688+x)>31"
1 22 - FASE DE CALCULO","COMO OBTENDREMOS LOS SIGNOS ?",""
1 2 ELABORACION ","048 INICIO ","049 CICLO ","#823","2830
1 13","04; N=INT ","04<RND*3+1 ","#823","2;40
1 11 - FASE DE INPUT","CUALES SON LOS ELEMENTOS NECE-SARIOS EN EL PROBLEMA ?",""
1 1 I N P U T ","042INTROD. ","043 <S/P> ","#820","2310
1 00000000000000000000000000000000000000000000000000000000000000000000000000111111111111102110000000000000021111111111111221100000000000000222222222222222211000000000000002222222222222222110000000000000000000000000000000000000666666666660000000006600000000006666666666666666666666666666666666666666666666666666666666666666:????????????????????????????????????????????????????????????????::::???????????????????????????????????????????????????????????::::????????????????????????????88??????????????????????????????88?????????????????????:?????88?88???????????88?????::::?????88?88???????88?????????9:::?????88?8888888888888888889999999???????888888888888888888999999:8888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888
1 000000000000
1 ...................................
1 -J/A,ER+J/A*.7
1 ,XX;" ";
1 ,XX;" "
1 **AYUDA II INTENTO**
1 ***respuesta flash***
1 ***puntuacion***
1 ***pulsa una tecla***
1 ***comentario final***
1 ***bloque principal***
1 ***INPUT controlado***
1 ***CLS BAJO***
1 *********************** **
1 *********************** *
1 );" ADIOS! ":
1 );" ";G$(C4);" ":
1 );" ";G$(C2);" ";G$(
1 )+Q$(C2)+Q$(
1 )*C8+(N(NT)=
1 ));q$(q,65
1 (X/256)*256
1 (X/256)
1 (N)","02AFIN CICLO ?","<<13","0=?SI","2A60
1 (H$(H1*C2-
1 (F$(K,C4)))
1 (F$(K,C2)))+D$(
1 (F$(J,C4)))
1 (F$(J,C2)))+B$(NT,
1 (C$(K,C4)))
1 (C$(K,C2)))+Q$(
1 ((((((((((((((((((((((((
1 ((((((((((((((((((
1 '''" Por lo tanto:"''" ";
1 ''" ...se convierte en:"''" ";
1 #Z;" INTRODUCE <E> PARA TERMINAR":
1 #6;T$","ENVIA AL CANAL <6> LA","VARIABLE T$",""
1 #3;""OK""","USANDO LA INSTRUCCION PRINT","IMPRIME CON LA ZX-PRINTER LA","PALABRA <OK>.",""
1 "xg+xs/2",yg+ys*
1 "VEAMOS AHORA ALGUNOS EJEMPLOSPRACTICOS Y EJERCICIOS RESPEC-TO AL USO DE LAS NUEVAS INS-TRUCCIONES QUE HEMOS APRENDI-DO.",""
1 "Usaremos el canal 6 que abri-remos con <S> o <P> segun seael dispositivo elegido.","",""
1 "Tendremos que generar numerosenteros aleatorios entre 1 y3. Despues los usaremos paradireccionar una cadena quecontenga <1X2>.",""
1 "Tendremos que indicar <S> o<P> para elegir respectivamen-te <Pantalla> o <Impresora>.",""
1 "RESPUESTA = ";
1 "QUEREMOS UN PROGRAMA QUE RE-LLENE EN PANTALLA O EN LA IM-PRESORA, UNA COLUMNA DE QUI-NIELA FORMADA POR 13 SIGNOSDE <1X2> ELEGIDOS AL AZAR.",""
1 "PRINT #0;A$","EL CONTENIDO DE LA VARIABLE<A$> SE VISUALIZARA EN LA PAR-TE BAJA DE LA PANTALLA.",""
1 "OPEN #IND,""P""","ESTA INSTRUCCION ABRE EL CANALCUYO NUMERO ESTA CONTENIDO ENLA VARIABLE <IND>, Y LO ASIGNAA LA IMPRESORA.",""
1 "OPEN #2,""K""","CON ESTA INSTRUCCION TODO<PRINT>, QUE NORMALMENTE ESTAASIGNADO AL CANAL <S>, ES EN-VIADO A LA IMPRESORA.",""
1 "MAX. 10 CARACTERES ";
1 "LPRINT PAPER 5;""OK""","PUESTO QUE LA ZX-PRINTER NOGESTIONA COLOR, EL ATRIBUTO<PAPER 5> SERA COMPLETAMENTEIGNORADO.",""
1 "LPRINT CHR 27;""-1"";""OK""","NORMALMENTE UNA IMPRESORA ES-TANDAR EJECUTA ESTA INSTRUC-CION IMPRIMIENDO ""OK"" SUBRAYA-DO.",""
1 "LLIST 3000","SI NO SE HAN INTRODUCIDO MODI-FICACIONES, LA ZX-PRINTER IM-PRIMIRA EL LISTADO DEL PROGRA-MA EXISTENTE EN MEMORIA A PAR-TIR DE LA LINEA 3000.",""
1 "INTRODUCE TU CODIGO ";
1 "I+217-(51
1 "ESTA VEZ, "+N$+"","PROBAREMOS SUERTE CON LA...QUINIELA ELECTRONICA!!!",""
1 "ES TU TURNO ";
1 "CUANTOS MUERTOS? ";N(NT)
1 "CUANTOS HERIDOS? ";B(NT):
1 "COPY","ESTA SENCILLA INSTRUCCION GE-NERA EN LA ZX-PRINTER UN<HARDCOPY> (COPIA FISICA, DELA PANTALLA).",""
1 "CLOSE #2","PUESTO QUE LOS CANALES DEL 0AL 3 SON ASIGNADOS AUTOMATICA-MENTE, ESTA INSTRUCCION TENDRAEL EFECTO DE REASIGNAR EL CA-NAL 2 AL PERIFERICO <S>.",""
1 "BIEN, "+N$+"
1 "AHORA, "+N$+"","TRANSFORMAREMOS EL ANALISISANTERIOR EN UN DIAGRAMA DEFLUJO, Y DESPUES A INSTRUC-CIONES <BASIC>.",""
1 "7";" ESTOY CARGANDO VIDEOTEST":
1 "6";"PULSA";
1 "6";"ATRIBUTOS CODIGOS"
1 "6";"* NORMAL",,"* EXPANDIDO",,"* GRAFICO",,"* EN COLOR ETC...",
1 "6";" C.P.U. "
1 "5";"TAB FUNCIONA DE FORMA DISTINTADE LA QUE HEMOS EMPLEADO HASTAAHORA:":
1 "5";"* ELECCION DEL TIPO DE CARACTER","* COLOCACION DE <TAB>","* ELECCION DEL ESPACIADO","* REDEFINICION DE CARACTERES",
1 "5";" PRINT CHR$ 23;CHR$ 14;CHR$ 0 "
1 "5",I;".":
1 "4";"ESTA BIEN ESCRITO ? (S/N)"
1 "4","5 CARACTERES DE","5 CONTROL","2","2","2 CARACTERES","2 DE IMPRESION","2","2","6","6","6 CARACTERES","6 GRAFICOS","6 E","6 INSTRUCCIONES","6","6","4"
1 "3+2*(i>5)";;" ":
1 "3";"TECLADO Y PULSA <ENTER>":
1 "3";"ESCRIBE TU NOMBRE EN EL";
1 "3";"ESCRIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>"
1 "28"-J/A,ER+J/A*.7
1 "23617",z:
1 "23617",u:
1 "23617",Z:
1 "23617",U:
1 "23296",K:
1 "23296"+N,K:
1 "23295+I",
1 "21",N;" \]"
1 "200*J+U":
1 "200*J+1":
1 "20",U," ":
1 "20",N;" ~|";
1 "2";" PRINT TAB 14 ":
1 "2"+(I$="P");"1X2"(
1 "19",N;" @
1 "18",Z,,"LPRINT ""ESTO""; ";
1 "16";" ";G$(
1 "13";"#";i;" ";:
1 "127-XL/2",
1 "1190"-(N(NT)+
1 "10";"VIDEOBASIC":
1 "10";"OTRA VEZ !":
1 "10";"ERROR !";
1 ","IMPRIME EL LISTADO DEL PROGRA-","MA EN MEMORIA EMPEZANDO POR LA","LINEA <1>",""
1 ","COPIA EL CONTENIDO DE","PANTALLA EN LA ZX-PRINTER",""
1 "*1 ","% "
1 ""039""(j)"
1 " ";B(NT);" ";N(NT):
1 " ";B(NT);" ";N(NT)
1 " TAB USANDO 2 CARACTERES"''"
1 " VAMOS A PROBAR "," SUERTE !"
1 VUELTA LA PRINCIPIO";
1 Tel. 031-240.959
1 SOFTIDEA (Como)
1 REPETIR";
1 PARA REPETIR"
1 PARA CONTINUAR
1 INTRODUCCION";
1 EJERCICIOS";
1 EJERCICIO";
1 COPYRIGHT 1985
1 CARGAR VIDEOTEST";
1 CARGAR EL VIDEOJUEGO";
1 AL BASIC ":
1 ** ***********************
1 * ***********************
1 SOFTIDEA (Como)
1 D A T A
1 Pon en marcha la grabadora
1 1 - JUEGO
1 ":
1 *
1 ((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
1
1
1
1
1
1
1
1